برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 5:24 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

نمایش نام کاربری

برای انجام این کار یم تکست در فرم بگزارید و

API زیر رو در جنرال بنویسید

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

برای نمایش ان بر روی فرم دبل کلیک کرده و دستور زیر را بنویسید

Dim Buffer As String
Buffer = String(255, 0)
GetUserName Buffer, 255
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
Text1 = Buffer

سعی می کنمAPI بیشتری رو بزارم فعلا بای...

 

صفحه قبل 1 صفحه بعد
موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 136
بازدید دیروز : 1
بازدید هفته : 139
بازدید ماه : 219
بازدید کل : 224613
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1